﻿
Partial Class WriteReviews
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Session("IDCity") Is Nothing Or Request.QueryString("IDKS") Is Nothing Then
            Response.Redirect("~/index.aspx")
        End If
        If Not IsPostBack Then
            'DetailKhachSan.aspx?IDKS={0}
            Dim khachSan As KhachSan = Nothing
            If Request.QueryString("IDKS") IsNot Nothing Then
                Dim idKS As New Guid(Request.QueryString("IDKS"))
                khachSan = KhachSanServer.GetKhachSanByIDKhachSan(idKS)
                'Dim strCity As String = KhachSanServer.GetCityNameByIDCity(khachSan.CITY_ID)

                'Dim arrivalDate As Date = Session("ArrivalDate")
                'Dim departureDate As Date = Session("DepartureDate")
                'Dim nDays As Long = DateDiff("d", arrivalDate, departureDate)
                'Dim _Date As Date = DateAdd(DateInterval.Day, +1, Now.Date)
                'Dim strDayWeek As String = String.Format("{0} {1}", Util.GetStrThuTrongTuan(arrivalDate.DayOfWeek), Format("MM/dd/yyyy", arrivalDate))
                'Dim lstItem As New ListItem(nDays, arrivalDate)

                divNameHotel.InnerHtml = khachSan.NAME
                lnkQuayLai.Text = "Khách Sạn tại " + Session("NameCity")
                Dim strURLQuayLai As String = String.Format("~/SearchKhachSan.aspx?ArrivalDate={0}&DepartureDate={1}&CityID={2}&Guests={3}&Rooms={4}", Session("ArrivalDate"), Session("DepartureDate"), Session("IDCity"), Session("Guests"), Session("Rooms"))
                lnkQuayLai.PostBackUrl = strURLQuayLai

            End If
            'Dim strPathAndQuery As String = HttpContext.Current.Request.Url.PathAndQuery
            'Dim strUrl As String = HttpContext.Current.Request.Url.AbsoluteUri.Replace(strPathAndQuery, "")
            'strUrl = strUrl & khachSan.LINK
        End If
    End Sub

    Protected Sub lnkBooking_Click(sender As Object, e As EventArgs) Handles lnkBooking.Click
        Try
            Dim idKS As New Guid(Request.QueryString("IDKS"))
            DatPhongServer.InsertDanhGia(idKS, txtTitle.Text, txtContent.Text, txtFullName.Text, txtEmail.Text, txtReviewRating.Value)
            Dim htmLValue As String = String.Format("<br/>Khachsan24gio xin chào {0}. <br/><br/>", txtFullName.Text)
            htmLValue &= " Khachsan24gio chân thành cảm ơn quý khách hàng đã dành ít phút viết đánh giá khách sạn và dịch vụ của Khachsan24gio.<br/><br/>"
            htmLValue &= " Khachsan24gio đánh giá cao những nhận xét và cảm nghĩ của khách hàng và luôn mong muốn chất lượng phục vụ ngày một tốt hơn.<br/><br/>"
            htmLValue &= " Công ty Khachsan24gio.<br/><br/> "
            Dim subject As String = "Cảm ơn khách hàng đã viết đánh giá đến Khachsan24gio"
            If Not htmLValue.Equals("") Then
                ''send email
                Dim strEmailCC As String = ""
                Dim eMail As String = ""
                If eMail.Equals("") Then
                    eMail = txtEmail.Text
                Else
                    strEmailCC = String.Format("{0},{1}", strEmailCC, txtEmail.Text)
                End If
                Dim errMess As String = Util.SendMail(strEmailCC, eMail, subject, htmLValue)
            End If
            ''
            Dim urL As String = String.Format("~/DetailKhachSanAssess.aspx?IDKS={0}", Request.QueryString("IDKS"))
            Response.Redirect(urL)

        Catch ex As Exception
            ''Throw ex
        End Try
    End Sub
End Class
